###FIRST RUN Study 1 Data Code.R###

####APPENDIX TABLE 5####
##COLLECTIVE BARGAINING FEDERAL
#FEDERAL LAW (COLUMN 1)
glm(CB_SQ ~ as.numeric(CB_TREAT==1) + MALE + AGE + EDUCATION + INCOME + LIBCON + RISK + UNIONS + WORKS + BLACK + HISP + WHITE,data=study1_fu, family=binomial(link="logit"),subset=is.element(CB_TREAT,c(0,1)))

#FEDERAL CONSTITUTION (COLUMN 2)
glm(CB_SQ ~ as.numeric(CB_TREAT==2) + MALE + AGE + EDUCATION + INCOME + LIBCON + RISK + UNIONS + WORKS + BLACK + HISP + WHITE,data=study1_fu, family=binomial(link="logit"),subset=is.element(CB_TREAT,c(0,2)))

#FEDERAL CONSTITUTION + CERTAINTY (COLUMN 3)
glm(CB_SQ ~ as.numeric(CB_TREAT==3) + MALE + AGE + EDUCATION + INCOME + LIBCON + RISK + UNIONS + WORKS + BLACK + HISP + WHITE,data=study1_fu, family=binomial(link="logit"),subset=is.element(CB_TREAT,c(0,3)))
########################